home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / textmode.fpl < prev    next >
Text File  |  1996-04-02  |  1KB  |  30 lines
  1. // $Id: TextMode.FPL 1.6 1996/04/02 18:35:32 jskov Exp $
  2. // $VER: TextMode.FPL 1.0 (15.06.95) © Jesper Skov
  3.  
  4. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextModePrefs() ««
  5. void export TextModePrefs()
  6. {
  7.   PromptInfo(-1,"Text mode preferences",-1,-1,
  8.    "Text_tab_size"
  9.    );
  10. }
  11.  
  12. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextModeInit() ««
  13. export void TextModeInit()
  14. {
  15.   SetInfo(-1,"tab_size",ReadInfo("Text_tab_size"));
  16. }
  17.  
  18. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» TextMode Settings ««
  19. ConstructInfo("Text_tab_size","","","WHGI","",0,999,8);
  20.  
  21. ConstructInfo("text_mode", "","", "LBH","", 0,0,0);
  22. ConstructInfo("text_mode_ext", "","", "GSHW","", 0,0,"*txt*readme*");
  23. ConstructInfo("text_mode_exe", "","", "GSHW","", 0,0,"TextModeInit();");
  24.  
  25. AddMode(1, "text_mode", "text_mode_ext", "text_mode_exe");
  26.  
  27. //»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»» Prefs menu ««
  28. MenuAdd("s", "TextMode...", "TextModePrefs();", "", ReadInfo("menu_program_title"),ReadInfo("menu_program_item"),-1); // Add to PackageSettings
  29. MenuBuild();
  30.